Shareware Extravaganza - Disc 4/Shareware Extravaganza - Over 25,000 Programs (The Ultimate Shareware Company)(Disc 4 of 4)(1993).iso/cad/grperf.zip/GRPERF.LSP

Text File | 1990-10-05 | 7KB | 2 lines

(SETQ QJ 0)(DEFUN GRTEST(QQ / QL Q& Q1 Q#)(SETVAR"cmdecho"QJ)(COMMAND"undefine""end")(DEFUN C:END()(SETVAR"cmdecho"QJ)(COMMAND"quit""y"))(COND((NOT(FINDFILE(STRCAT QQ".DXF")))(PRINC(STRCAT"\nCan't find test drawing: "(STRCASE QQ)".DXF")))((ENTNEXT)(PRINC"\nInvalid - Benchmark must be run in a NEW drawing.")(PRINC"\nQuit and restart using \"DWGNAME=\" as drawing name."))(T(COMMAND"dxfin"(SETQ Q0 QQ))(Q$)(QO)(Q|)(MAPCAR(quote (LAMBDA(Q%)(SETVAR Q% 0)))(quote ("blipmode""highlight")))(SETVAR"regenmode"1)(SETVAR"menuecho"2)(SETVAR"expert"4)(SETQ QL(COND((GETENV"GRPERF"))(T".redraw")))(REPEAT 50(COMMAND"setvar""lastpoint"(LIST 0.0 0.0 0.0)))(COND((>(ATOI(GETVAR"acadver"))9)(COMMAND".ucsicon""off")))(COMMAND".zoom""c""0,0"""".viewres""Y""10000""layer""t""*""on""*""")(Q?J)(SETQ Q&(OPEN"GRPERF.LOG""a"))(SETQ Q#(OPEN"lasttest.txt""w"))(SETQ QJJ(OPEN"$summary.dat""a"))(SETVAR"userr5"1)(Q@J)(QQJ"\nView   Image size   Test time   Benchmark time   Performance")(QQJ"\nMag.  (% of view)   (seconds)        (seconds)    (relative)")(QQJ"\n------------------------------------------------------------")(SETQ TIMES NIL)(SETQ Q1 -1)(SETQ QLJ 32.0)(SETQ Q&J NIL Q1J NIL Q#J NIL Q0J NIL)(REPEAT 9(QQJ"\n")(QQJ(Q$J(ITOA(EXPT 2(SETQ Q1(1+ Q1))))3))(QQJ"x")(QOJ 3)(SETQ QLJ(/ QLJ 2.0))(SETQ Q0J(/ 100.0 QLJ))(QQJ(Q$J(RTOS Q0J 2 2)10))(QOJ 3)(COMMAND".zoom""c""0,0"QLJ".regen")(GC)(SETQ Q&J(Q|J))(QQJ(Q$J(RTOS Q&J 2 2)9))(QOJ 3)(QQJ(Q$J(COND(Q%J(RTOS(NTH Q1 Q%J)2 2))(T"n/a"))14))(QOJ 3)(QQJ(Q$J(COND(Q%J(RTOS(SETQ Q1J(/(NTH Q1 Q%J)Q&J))2 2))(T"n/a"))11))(SETQ TIMES(APPEND TIMES(LIST(COND(Q%J(LIST Q1 Q&J(NTH Q1 Q%J)Q1J))(T(LIST Q1 Q&J)))))))(QQJ"\n------------------------------------------------------------")(QQJ"\nTest total:         ")(QQJ(Q$J(RTOS(APPLY(quote +)(MAPCAR(quote CADR)TIMES))2 2)9))(COND(Q%J(QOJ 3)(QQJ(Q$J(RTOS(APPLY(quote +)(MAPCAR(quote CADDR)TIMES))2 2)14))(QOJ 3))(T(QOJ 3)(QQJ(Q$J"n/a"14))))(QQJ"\nTest average:       ")(QQJ(Q$J(RTOS(Q?@(MAPCAR(quote CADR)TIMES))2 2)9))(QOJ 3)(SETQ QJ@(/(APPLY(quote +)(MAPCAR(quote CADDR)TIMES))(APPLY(quote +)(MAPCAR(quote CADR)TIMES))))(COND(Q%J(QQJ(Q$J(RTOS(Q?@(MAPCAR(quote CADDR)TIMES))2 2)14))(QOJ 3)(QQJ(Q$J(RTOS QJ@ 2 2)11)))(T(QQJ(Q$J"n/a"14))(QOJ 3)(QQJ(Q$J"n/a"11))))(PRIN1(LIST(Q?@(MAPCAR(quote CADR)TIMES))(Q?@(MAPCAR(quote CADDR)TIMES)))QJJ)(WRITE-LINE""QJJ)(MAPCAR(quote CLOSE)(LIST QJJ Q& Q#))(SETQ GRTEST Q@@ TESTDWG QQ Q|J NIL Q$ NIL Q| NIL QQ@ NIL QO NIL QL@ NIL Q&@ NIL Q@J NIL Q1@ NIL Q#@ NIL QL@ NIL)(SETQ Q0@(MAPCAR(quote CADR)TIMES))(SETQ Q$@ Q%J)(LOAD"graph1.lsp")(TEXTSCR)))(PRINC))(DEFUN Q@@(QQ)(PRINC"\nMust restart drawing editor with a new drawing.")(PRINC))(DEFUN Q|J(/ QO@)(REPEAT Q|@(SETQ QO@(APPEND QO@(LIST(Q%@(GETVAR"date")(PROGN(COMMAND QL)(GETVAR"date")))))))(/(-(APPLY(quote +)QO@)(APPLY(quote MAX)QO@)(APPLY(quote MIN)QO@))(FLOAT(-(LENGTH QO@)2))))(DEFUN Q?@(Q?Q)(/(APPLY(quote +)Q?Q)(FLOAT(LENGTH Q?Q))))(DEFUN QOJ(QJQ)(QQJ(Q@Q QJQ)))(DEFUN Q@Q(QJQ)(SUBSTR"                                                "1 QJQ))(DEFUN Q@J()(QQJ"\n============================================================")(QQJ"\nGRPERF    AutoCAD Video Graphics Performance Benchmark Suite")(QQJ(STRCAT"\nTest: "QQQ))(QQJ(STRCAT"\nDate: "(Q1@)"  Time: "(Q#@)))(QQJ(STRCAT"\nAutoCAD Release "(GETVAR"acadver")))(QQJ(STRCAT"\nVideo configuration: "QLQ))(QQJ(STRCAT"\nActive view resolution: "(RTOS(CAR(GETVAR"screensize"))2 0)" x "(RTOS(CADR(GETVAR"screensize"))2 0)" pixels.\n")))(DEFUN Q#@(/ Q&Q)(STRCAT(ITOA(ATOI(SUBSTR(SETQ Q&Q(RTOS(GETVAR"cdate")2 6))10 2)))":"(SUBSTR Q&Q 12 2)":"(SUBSTR Q&Q 14 2)))(DEFUN Q1@(/ Q&Q)(STRCAT(ITOA(ATOI(SUBSTR(SETQ Q&Q(RTOS(GETVAR"cdate")2 0))5 2)))"/"(ITOA(ATOI(SUBSTR Q&Q 7 2)))"/"(SUBSTR Q&Q 3 2)))(DEFUN Q1Q()(PRINC"\n.\r \n"))(DEFUN Q#Q(Q0Q Q?Q)(COND((LISTP Q0Q)(MAPCAR(quote (LAMBDA(Q%)(CDR(ASSOC Q% Q?Q))))Q0Q))(T(CDR(ASSOC Q0Q Q?Q)))))(DEFUN Q$J(Q$Q QOQ)(STRCAT(SUBSTR"               "1(- QOQ(STRLEN Q$Q)))Q$Q))(DEFUN Q|Q(Q$Q QOQ)(STRCAT Q$Q(SUBSTR"               "1(- QOQ(STRLEN Q$Q)))))(DEFUN QQJ(Q$Q)(PRINC Q$Q)(COND(Q&(PRINC Q$Q Q&)))(COND(Q#(PRINC Q$Q Q#))))(DEFUN QQ@(Q%Q / Q?L Q?Q)(WHILE(/="SEQEND"(Q#Q 0(SETQ Q?L(ENTGET(SETQ Q%Q(ENTNEXT Q%Q))))))(SETQ Q?Q(APPEND Q?Q(LIST(Q#Q 1 Q?L))))))(DEFUN Q$(/ QJL Q%Q Q@L)(COND((AND(SETQ Q%Q(ENTNEXT))(EQ"BMDATA"(Q#Q 2(SETQ Q@L(ENTGET Q%Q)))))(SETQ QJL(QQ@ Q%Q)QQQ(CAR QJL)QQL(ATOI(CADR QJL))Q|@(ATOI(CADDR QJL))Q%J(MAPCAR(quote ATOF)(CDDDR QJL)))(ENTDEL(ENTNEXT)))(T(PRINC"\nCan't find benchmark data - aborting.")(QUIT))))(DEFUN QO(/ QLL Q&L)(SETQ Q&L"grconfig.txt")(COND(QLQ)((SETQ Q&L(FINDFILE Q&L))(SETQ QLQ(READ-LINE(SETQ QLL(OPEN Q&L"r"))))(CLOSE QLL))(T(Q&@))))(DEFUN Q&@(/ QLL Q&L)(SETQ Q&L"grconfig.txt")(COND((SETQ QLL(OPEN Q&L"r"))(SETQ QLQ(READ-LINE QLL))(CLOSE QLL)))(SETQ QLQ(QL@"\nName of test configuration"QLQ T))(WRITE-LINE QLQ(SETQ QLL(OPEN Q&L"w")))(SETQ QLL(CLOSE QLL)))(DEFUN QL@(Q1L Q?L Q#L / Q0L)(WHILE(AND(EQ""(SETQ Q0L(GETSTRING Q#L(STRCAT Q1L(COND(Q?L(STRCAT" <"Q?L">: "))(T": "))))))(NOT Q?L))(PRINC"Invalid response.\n"))(COND((EQ Q0L"")Q?L)(T Q0L)))(DEFUN Q$L(Q%)(/(CADR(GETVAR"screensize"))Q%))(DEFUN Q%@(QOL Q|L / Q&Q)(* 86400.0(-(SETQ Q&Q(- Q|L QOL))(ATOF(RTOS Q&Q 2 0)))))(DEFUN ALLTESTS()(QO)(CLOSE(OPEN"$summary.dat""w"))(COMMAND".script""alltests"))(DEFUN RUNTEST(Q%L)(SETVAR"cmdecho"QJ)(COND((FINDFILE"acad.lsp")(PRINC"\nMust remove ACAD.LSP from AutoCAD library path first."))((NOT(FINDFILE"grperf.dwg"))(PRINC"\nCan't find test template: GRPERF.DWG"))(T(Q?& Q%L)(COMMAND"script""grperf")))(PRINC))(DEFUN Q?&(Q?L / QJ& Q@&)(SETQ Q@&"\"")(SETQ QJ&(OPEN"grperf.scr""w"))(WRITE-LINE"quit y"QJ&)(WRITE-LINE"2 grperf"QJ&)(WRITE-LINE(STRCAT"(load "Q@&"grperf.lsp"Q@&")")QJ&)(WRITE-LINE(STRCAT"(grtest "Q@& Q?L Q@&")")QJ&)(CLOSE QJ&))(DEFUN DISPLAY-RESULTS(/ QLL Q?Q)(COND((NOT(FINDFILE"lasttest.txt"))(PRINC"\nNo test results to display."))(T(TEXTSCR)(REPEAT 25(TERPRI))(SETQ QLL(OPEN"lasttest.txt""r"))(WHILE(SETQ Q?Q(READ-LINE QLL))(WRITE-LINE Q?Q))(CLOSE QLL)(PRINC))))(SETQ QQ&(quote ("|""/""-""\\")))(DEFUN QL&()(PRINC(STRCAT(CAR(Q&&(quote Q1&)(quote QQ&)))"\r")))(DEFUN Q?J()(GRTEXT -1(STRCAT"Test "(SUBSTR Q0(STRLEN Q0))": "QQQ))(GRTEXT -2"GRPERF V1.1"))(DEFUN Q&&(QLL Q$Q)(SET Q$Q(APPLY QLL(LIST(EVAL Q$Q)))))(DEFUN Q1&(Q?Q)(APPEND(CDR Q?Q)(LIST(CAR Q?Q))))(DEFUN Q|(/ Q$Q Q%Q)(SETQ Q$Q(SSGET"x"))(SETQ Q%Q(ENTLAST))(SETVAR"BLIPMODE"0)(SETVAR"highlight"0)(PRINC"\n  Generating test geometry\r")(REPEAT QQL(QL&)(COMMAND".copy"Q$Q"""0,0""0,0"".change"(SETQ Q$Q(Q#& Q%Q))"""p""c"(Q0&)"")(SETQ Q%Q(ENTLAST))))(DEFUN Q0&()(SETQ Q$&(COND(QO&)(T 1)))(SETQ QO&(COND((/= 6 Q$&)(1+ Q$&))(T 1))))(DEFUN Q#&(Q%Q / Q|&)(SETQ Q|&(SSADD))(WHILE(SETQ Q%Q(ENTNEXT Q%Q))(SSADD Q%Q Q|&)))(SETVAR"cmdecho"QJ)(PRINC"\rGRPERF  Copyright 1990 Off Broadway Business Systems.")(PRINC"\nAutoCAD(tm) Video Graphics Performance Benchmark Suite.")(PRINC)